#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 9:45
# description: 计算圆周长

use v5.10;
use utf8;

print "使用脚本内的半径计算圆周长\n";
$r = 12.5;
$l = 2 * 3.141592654 * $r;
print "半径为$r的圆，其周长为$l\n";

print "通过键盘输入半径：12.5计算圆周长\n";
$input_r = <STDIN>;
# 为输入的数据做校验
chomp($input_r);
if ($input_r == 0) {
    $l_2 = 0;
} else {
    $l_2 = 2 *3.141592654 * $input_r;
}
print "通过键盘输入半径，其圆周长为$l_2\n";

